Windev21 Aulas,Estudos e Desenvolvimento: AULA 1294 WINDEV ACBR - 004

sábado, 25 de novembro de 2017

AULA 1294 WINDEV ACBR - 004 - DANF PARTE 1

VIDEO ACBR WINDEV DANF

ACBR INSTALAR - INICIO - ACBR 001 - AULA 1291
ACBR - COMO CONFIGURAR - ACBR 002 - AULA 1292
STATUS SERVICO - ACBR 003 AULA 1293
DANF ACBR PARTE 1 - ACBR 004 AULA 1294

DANF PDF ACBR - ACBR 005 AULA 1295

CONSULTA NFE - ACBR 006 AULA 1296

CADASTRO CONTRIBUINTE ACBR - ACBR 007 AULA 1297
ACBR AJUSTES PROCEDURES - ACBR 008 AULA 1298
NCM DESCRICAO - ACBR 009 AULA 1299
NFE.CRIANFE 1A PARTE ACBR 010 AULA 1300
NFE.CRIARNFE 2A PARTE ACBR 011 AULA 1301
NFE.CRIARNFE 3A PARTE CODE ACBR 012 AULA 1302
NFE.ENVIARNFE ACBR 1A PARTE ACBR 013 AULA 1303
NFE ENVIARNFE ACBR 2A PARTE ACBR 014 AULA 1304
NFE ENVIARNFE ACBR 3A PARTE ACBR 015 AULA 1306
NFE ENVIARNFE ACBR 4A PARTE ACBR 016 AULA 1308
NFE.CancelarNFE WINDEV ACBR 017 AULA 1309
INUTILIZAR ACBR 018 AULA 1310
CARTA CORRECAO - NFe.EnviarEvento - ACBR 019 AULA 1311
LERINI ACBR CONFIGURACAO 020 AULA 1313

TUTORIAL INSTALAÇÃO ACBR http://www.pctoledo.com.br/forum
ANDRE MORAES - http://anfm.blogspot.com.br/2009/09/campos-para-criar-uma-nfe-usando-o.html
PROJETO ACBR MONITOR - https://www.projetoacbr.com.br/acbrmonitor-3
COMO BAIXAR FONTE ACBR - http://www.pctoledo.com.br/forum
FORUM ACBR - https://www.projetoacbr.com.br/forum/files/
http://anfm.blogspot.com.br/
HELP ON-LINE

GLOBAL
// NO GLOBAL DO CODIGO DO PROJETO

// ELIMINADO ESSES TRES VARIAVEI NA GLOBAL
//
// gs_diretorio is string=""
// gs_arquivo_entrada is string=""
// gs_arquivo_saida is string=""

EXTERN "KEYCONST.wl"

// NO CODIGO DA WINDOW JANELA

// trocado esses comandos por abaixo
// foi criado edt_diretorio_arquivo_entrada e saida

//Gs_diretorio="C:\amarildo\ACBR\PASTA\"
//gs_arquivo_entrada="ent.txt"
//gs_arquivo_saida="sai.txt"
//EDT_diretorio=gs_diretorio
//EDT_arquivo_entrada=gs_arquivo_entrada
//EDT_arquivo_saida=gs_arquivo_saida

EDT_diretorio="C:\amarildo\ACBR\PASTA\"
EDT_arquivo_entrada="ent.txt"
EDT_arquivo_saida="sai.txt"
EDT_diretorio_arquivo_entrada=EDT_diretorio+EDT_arquivo_entrada
EDT_diretorio_arquivo_saida=EDT_diretorio+EDT_arquivo_saida

// BOTAO STATUS SERVICO
// http://acbr.sourceforge.net/ACBrMonitor/NFEStatusServico.html
EDT_auditoria=""
EDT_XML="NFE.StatusServico()"
IF fFileExist(EDT_diretorio_arquivo_saida) THEN
fDelete(EDT_diretorio_arquivo_saida)
END
fSaveText(EDT_diretorio_arquivo_entrada,EDT_XML)
EDT_retorno=""
b_existe is boolean=False
LOOP
IF fFileExist(EDT_diretorio_arquivo_saida) THEN
b_existe=True
BREAK
END
Multitask(-1)
IF KeyPressed(VK_SPACE) = True THEN
BREAK
END
END
IF b_existe=True THEN
Message(EDT_diretorio_arquivo_saida)
EDT_retorno=fLoadText(EDT_diretorio_arquivo_saida)
END
EDT_auditoria+="EDT_monta_entrada["+EDT_XML+"]"+CR
EDT_auditoria+="EDT_diretorio["+EDT_diretorio+"]"+CR
EDT_auditoria+="EDT_arquivo_saida["+EDT_arquivo_saida+"]"+CR
EDT_auditoria+="s_arquivo_entrada["+EDT_diretorio_arquivo_entrada+"]"+CR
EDT_auditoria+="s_arquivo_saida["+EDT_diretorio_arquivo_saida+"]"+CR
EDT_auditoria+="b_existe["+b_existe+"]"+CR
EDT_auditoria+="EDT_retorno["+EDT_retorno+"]"+CR

// CODIGO DO BOTAO BTN PROCURE

sFile is string

// Opens the file picker
sFile = fSelect("", "", "Seleciona Xml", "Xml" + TAB + "*.xml", "*.xml")

EDT_xml_localizacao_arquivo=sFile

// BOTAO DO IMPRIMIR DANF

//NFE.ImprimirDanfe
//Imprime a NFE de acordo com os parâmetros informados.
//NFE.ImprimirDanfe(cArqXML,[cImpressora],[nNumCopias],[cProtocolo],[bMostrarPreview],[cMarcaDagua],[bViaConsumidor],[bSimplificado])

//cArqXML - Caminho do arquivo XML da NF-e.
//cImpressora - Nome da Impressora. Obs.: Parâmetro opcional.
//nNumCopias - Número de Cópias. Obs.: Parâmetro opcional.
//cProtocolo - Número de Protocolo de NF-e. Obs.: Parâmetro opcional.
//bMostrarPreview - exibe o preview antes da impressão (1 - para exibir). Obs.: Parâmetro opcional.
//cMarcaDagua - Imprime parametro informado como MarcaDagua. Obs.: Parâmetro opcional.
//bViaConsumidor - Emitir via do Consumidor (1 - para emitir) Obs.: Parâmetro opcional.
//bSimplificado - Imprimir DANFe modelo Simplificado (1 - para emitir). Obs.: Parâmetro opcional.
//
//Exemplo:
//
//NFE.ImprimirDanfe("c:\35XXXXXXXXXXXXXXXX550010000000050000000058-nfe.xml", , , ,1)

_arquivo_acbr is string=[
NFE.ImprimirDanfe("#cArqXML#",
#cImpressora#,
#nNumCopias#,
#cProtocolo#,
#bMostrarPreview#,
#cMarcaDagua#,
#bViaConsumidor#,
#bSimplificado#)
]
s_cImpressora is string=""
s_nNumCopias is string=""
s_cProtocolo is string=""
s_bMostrarPreview is string="1"
s_cMarcaDagua is string=""
s_bViaConsumidor is string=""
s_bSimplificado is string="1" //Branco Completo // 1 simplificado

_arquivo_acbr=Replace(_arquivo_acbr,"#cArqXML#",EDT_xml_localizacao_arquivo)
_arquivo_acbr=Replace(_arquivo_acbr,"#cImpressora#",s_cImpressora)
_arquivo_acbr=Replace(_arquivo_acbr,"#nNumCopias#",s_nNumCopias)
_arquivo_acbr=Replace(_arquivo_acbr,"#cProtocolo#",s_cProtocolo)
_arquivo_acbr=Replace(_arquivo_acbr,"#bMostrarPreview#",s_bMostrarPreview)
_arquivo_acbr=Replace(_arquivo_acbr,"#cMarcaDagua#",s_cMarcaDagua)
_arquivo_acbr=Replace(_arquivo_acbr,"#bViaConsumidor#",s_bViaConsumidor)
_arquivo_acbr=Replace(_arquivo_acbr,"#bSimplificado#",s_bSimplificado)

EDT_XML=_arquivo_acbr
//"NFE.StatusServico()"

fSaveText(EDT_diretorio_arquivo_entrada,EDT_XML)

Páginas

sábado, 25 de novembro de 2017

AULA 1294 WINDEV ACBR - 004 - DANF PARTE 1

VIDEO ACBR WINDEV DANF

Nenhum comentário:

Postar um comentário

Teste

Marcadores