sexta-feira, 25 de agosto de 2017

AULA 1248 WINDEV SQL 022 select MANUAL










https://www.youtube.com/watch?v=b_X330Ipsa8


VOU MOSTRAR COMO USAR SQL NO WINDEV


// LIMPANDO TABELA
TableDeleteAll(TABLE_DUPLICATA)
_data_source is Data Source
_Sql is string=""

IF TABLE_nota_fiscal.COL_id_tipo_nota=3 THEN
_Sql = [
SELECT
id_nota_entrada,TITULO,data_vencimento,data_pagamento,valor_titulo,id_duplicata_pagar
FROM
duplicata_pagar
where
id_nota_entrada=#id_nota_entrada#
]
n_idnota is int=TABLE_nota_fiscal.COL_Id_nota_fiscal
_Sql=Replace(_Sql,"#id_nota_entrada#",n_idnota)

ELSE IF TABLE_nota_fiscal.COL_id_tipo_nota=1 OR TABLE_nota_fiscal.COL_id_tipo_nota=2

_Sql = [
SELECT
   Id_nota_fiscal,TITULO,data_vencimento,data_pagamento,valor_titulo,id_duplicata_receber
FROM
   duplicata_receber
WHERE
   Id_nota_fiscal=#numero_nota#
]
n_idnota is int=TABLE_nota_fiscal.COL_Id_nota_fiscal
_Sql=Replace(_Sql,"#numero_nota#",n_idnota)

END

IF HExecuteSQLQuery(_data_source,hQueryDefault,_Sql) THEN
HReadFirst(_data_source) // LENDO
WHILE NOT HOut()    
TableAddLine(TABLE_DUPLICATA)
n_contador is int=TABLE_DUPLICATA[[rowCount]]
d_data_d is Date=""
_data is string=_data_source.data_pagamento
IF _data<>"" THEN
d_data_d..Day=_data[[7 TO 8]]
d_data_d..Month=_data[[5 TO 6]]
d_data_d..Year=_data[[1 TO 4]]
END
TABLE_DUPLICATA.COL_DtPagto=d_data_d
_data=_data_source.data_vencimento
IF _data<>"" THEN
d_data_d..Day=_data[[7 TO 8]]
d_data_d..Month=_data[[5 TO 6]]
d_data_d..Year=_data[[1 TO 4]]
END
TABLE_DUPLICATA.COL_DtVencimento=d_data_d
TABLE_DUPLICATA.COL_Titulo=_data_source.TITULO
TABLE_DUPLICATA.COL_Valor=_data_source.valor_titulo
TABLE_DUPLICATA.COL_id_duplicata_pagar=0
TABLE_DUPLICATA.COL_id_duplicata_receber=0
IF TABLE_nota_fiscal.COL_id_tipo_nota=3 THEN
TABLE_DUPLICATA.COL_id_duplicata_pagar=_data_source.id_duplicata_pagar
ELSE
TABLE_DUPLICATA.COL_id_duplicata_receber=_data_source.id_duplicata_receber
END
HReadNext(_data_source)
END
HFreeQuery(_data_source)
END

IF TableSelect(TABLE_DUPLICATA) = -1 THEN
    TABLE_DUPLICATA..Visible=False
    BTN_DuplicataAltera..Visible=False
ELSE
TABLE_DUPLICATA..Visible=True
BTN_DuplicataAltera..Visible=True
END






























WINDEV - 13:30 MDFE - CONTINUACAO DESENVOLVIMENTO



TESTETESTETESTETESSETETSETSETSETEST

WINDEV - 13:30 MDFE - CONTINUACAO DESENVOLVIMENTO



TESTETESTETESTETESSETETSETSETSETEST

WINDEV - 10:00 - MDFE - DESENVOLVIMENTO



TESTETESTETESTETESSETETSETSETSETEST

WINDEV - 07:00 MDFE - DESENVOLVIMENTO



TESTETESTETESTETESSETETSETSETSETEST

Teste

Teste
teste