Windev21 Aulas,Estudos e Desenvolvimento: 12/28/19

sábado, 28 de dezembro de 2019

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Boa Tarde

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 18:00 do dia 28/12/2019.

Dica 2597. Vou Mostrar como eu Fiz Impressao Danf no Windev.

DICAS 2597 - WINDEV WEBDEV MOBILE - Relatorio 62 - Como eu Fiz Danf no Windev.

Compartilhe Canal Youtube Amarildo Matos

Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando

sonhos em realidades.

https://youtu.be/Fi3ATWAIAzs

--------------------------------------------------------------
EXTERN win_danf_relatorio
LoadWDL("relatorio.wdl")
n_id_nota_fiscal is int=TABLE_nota_fiscal.COL_Id_nota_fiscal
Open(win_danf_relatorio,n_id_nota_fiscal,"IMPRESSAO",True,True)
---------------------------------------------------------------

// BTN_IMPRIMIR_DANF
HReadSeekFirst(nota_fiscal_xml,Id_nota_fiscal,gn_id_nota_fiscal)
TableDeleteAll(TABLE_itens)
IF HFound(nota_fiscal_xml) THEN
IF nota_fiscal_xml.xml_nfe<>"" THEN
EDT_Xml_nfe=nota_fiscal_xml.xml_nfe
ELSE
EDT_Xml_nfe=nota_fiscal_xml.xml_enviado
END
ler_danfe_itens_impostos_xml()
ELSE
EDT_Xml_nfe=nota_fiscal.id_nota_fiscal
ler_danfe_itens_impostos_homologacao()
END
IF empresa_parametro_nfe.pdf_gerar=True THEN
iDestination(iPDF,s_retorno_pdf)
imprime_danf(True)
IF gbNao_abrir_pdf=True THEN
ELSE
ShellExecute(s_retorno_pdf)
END
ELSE
imprime_danf(False)
END
====================================================
INTERNAL PROCEDURE ler_danfe_itens_impostos_xml()

documento is string = EDT_Xml_nfe
xml_nfe is a xmlDocument
xml_nfe=XMLOpen(documento,fromString)
det is xmlNode
_sequencia is int=0
HReadSeekFirst(empresa_parametro_nfe,Id_empresa,gnEmpresacodigo)
FOR EACH det OF xml_nfe.nfeProc.NFe.infNFe on det
TableAddLine(TABLE_itens) // Adicionando a tabela
n_ocorrencia is int= TABLE_itens..Occurrence //vou ter o numero atual linha tabela
_sequencia++
TABLE_itens.COL_01_sequencia[n_ocorrencia]=_sequencia
TABLE_itens.COL_02_id_nota_fiscal_iten[n_ocorrencia]=0
TABLE_itens.COL_03_cProd[n_ocorrencia]=det.prod.cProd
TABLE_itens.COL_04_cEAN[n_ocorrencia]=det.prod.cEAN
TABLE_itens.COL_05_xProd[n_ocorrencia]=det.prod.xProd
TABLE_itens.COL_06_NCM[n_ocorrencia]=det.prod.NCM
TABLE_itens.COL_07_CFOP[n_ocorrencia]=det.prod.CFOP
TABLE_itens.COL_08_uCom[n_ocorrencia]=det.prod.uCom
TABLE_itens.COL_09_qCom[n_ocorrencia]=det.prod.qCom
TABLE_itens.COL_17_vTotTrib[n_ocorrencia]=det.imposto.vTotTrib
TABLE_itens.COL_18_ICMS_ICMSSN_orig[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].orig
s_cst_csosn is string=""
s_cst_csosn=det.imposto.ICMS..ChildNode[1].CST
TABLE_itens.COL_19_ICMS_ICMSSN_CST_CSOSN[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].orig+det.imposto.ICMS..ChildNode[1].CST
IF s_cst_csosn="" THEN
TABLE_itens.COL_19_ICMS_ICMSSN_CST_CSOSN[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].orig+det.imposto.ICMS..ChildNode[1].CSOSN
END
TABLE_itens.COL_20_ICMS_ICMSSN_pCred[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].pCred
TABLE_itens.COL_21_ICMS_ICMSSN_vCred[n_ocorrencia]=det.imposto.ICMS..ChildNode[1].vCred

END

END
===================================================================
INTERNAL PROCEDURE ler_danfe_itens_impostos_homologacao()
nUmero_item is int=0
TableDeleteAll(TABLE_ItemID)
TableSort(TABLE_ItemID,False)
HReadSeekFirst(nota_fiscal,id_nota_fiscal,gn_id_nota_fiscal)
QRY_ItensNF.param_idNota = nota_fiscal.id_nota_fiscal
HExecuteQuery(QRY_ItensNF,hQueryWithoutHFCorrection)
FOR EACH QRY_ItensNF
TableAddLine(TABLE_ItemID,QRY_ItensNF.id_nota_fiscal_iten,QRY_ItensNF.sequencia_digitacao)
END
TableSort(TABLE_ItemID,"+COL_sequencia")
FOR EACH ROW OF TABLE_ItemID
HReadSeek(nota_fiscal_iten,id_nota_fiscal_iten,TABLE_ItemID.COL_IdItemNotaFiscal)
HReadSeekFirst(material,material.chave_empresa_material,[gnEmpresacodigo,nota_fiscal_iten.id_empresa_material])
TableAddLine(TABLE_itens)
nUmero_item++
TABLE_itens.COL_01_sequencia[nUmero_item]=nota_fiscal_iten.sequencia_digitacao
TABLE_itens.COL_03_cProd[nUmero_item]=nota_fiscal_iten.codigo_produto_cProd
TABLE_itens.COL_04_cEAN[nUmero_item]=nota_fiscal_iten.codigo_barra_cean
TABLE_itens.COL_05_xProd[nUmero_item]=material.nome
TABLE_itens.COL_33_percentual_desc[nUmero_item]=nota_fiscal_iten.Valor_desconto_percentual
END
TableSort(TABLE_itens,"+COL_01_sequencia")
END
================================================
IF empresa_parametro_nfe.pdf_gerar=True THEN
iDestination(iPDF,s_retorno_pdf)
imprime_danf(True)
IF gbNao_abrir_pdf=True THEN
ELSE
ShellExecute(s_retorno_pdf)
END
ELSE
imprime_danf(False,False)
END
================================================
INTERNAL PROCEDURE imprime_danf(_pdf is boolean=False, envioEmail is boolean=False)
IF _pdf=True THEN
ELSE
IF gb_deseja_configuracar=True THEN
iConfigure()
END
iPreview(ipvZoom100)
END
IF empresa_parametro_nfe.danf_quantidade_vias>0 THEN
iParameter(iCopies,empresa_parametro_nfe.danf_quantidade_vias)
END
iPrintReport(RPT_danf_nfe_mod2,gn_id_nota_fiscal)

END
================================================
// BTN_gERAR_tABELA

TABLE_itens_pedido.DeleteAll()
//TableDeleteAll(TABLE_itens_pedido) // VERSOES ANTERIORES

// VAMOS AGORA LER OS ITENS DO PEDIDO E GERAR NA TABELA

FOR EACH pedido_iten where PedidoID=EDT_Numero_Pedido

nOCORRENCIA is int=TABLE_itens_pedido.AddLine()
TABLE_itens_pedido[nOCORRENCIA].COL_01_pedido_itenid=pedido_iten.pedido_itenID
TABLE_itens_pedido[nOCORRENCIA].COL_02_pedido_id=pedido_iten.PedidoID
TABLE_itens_pedido[nOCORRENCIA].COL_03_material_id=pedido_iten.Materialid
TABLE_itens_pedido[nOCORRENCIA].COL_04_nome_material=""
HReadSeekFirst(material,materialid,pedido_iten.Materialid)
IF HFound(material) THEN
TABLE_itens_pedido[nOCORRENCIA].COL_04_nome_material=material.nome
END
TABLE_itens_pedido[nOCORRENCIA].COL_05_quantidade=pedido_iten.quantidade
TABLE_itens_pedido[nOCORRENCIA].COL_06_vlr_unitario=pedido_iten.valor_unitario
TABLE_itens_pedido[nOCORRENCIA].COL_07_valor_total=pedido_iten.valor_total

END
==========================================

GERAR PDF RELATORIO CLIENTE - 1902 - PRIVADA - WINDEV 23 - RELATORIO 55 -
DICAS 1977 - PUBLICA - WINDEV - RELATORIOS 56 - INTERNAL PROCEDURE
DICAS 2085 - WINDEV - RELATORIO 57 - RELATORIO INTERNO

DICA 2150 - HANGOUT AO VIVO 10 06 2019 AS 19:00 - MOSTRAR CONSULTORIA COm joao sobre relatorios de como criar
DICAS 2151 WINDEV WEBDEV MOBILE RELATORIOS 59 CONSULTORIA JOAO 08062019
DICAS 2152 WINDEV WEBDEV MOBILE RELATORIOS 60 TOTAL RELATORIO
DICAS 2193 WINDEV WEBDEV MOBILE RELATORIO 61 IPREVIEW iMiniPreview
DICAS 2597 - WINDEV WEBDEV MOBILE - Relatorio 62 - Como eu Fiz Danf no Windev.
AO VIVO FACEBOOK - 2882 20:00 - 06/05/2020 - RELATORIOS COM TABELAS WINDEV

Ao vivo 2596 - 28/12/2019 14:30 - Amarildo - Desenvolvimento e Estudos -...

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip
Boa Noite

Ao vivo 2596 - 28/12/2019 14:30 - Amarildo - Desenvolvimento e Estudos - Windev

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades

Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm