Código: Selecionar todos
// USando o SUMATRAPDF.EXE
REDEFINE BUTTON oVisualPDF ID 301 OF oDlgEnv ;
ACTION ( VISUALIZAR_PDF_CCE( cAlias ) ) CANCEL
oVisualPDF:cToolTip := OemToAnsi( "Visualizar o Arquivo *.PDF da CC-e em C:\NFEPDF Usando o SumatraPDF" )
FUNCTION VISUALIZAR_PDF_CCE( cAlias )
LOCAL NFEVisualSUM, nNumNfeSUM, nRecNo, lSucesso := .F.
IF .NOT. FILE( cDirExe+"SUMATRA\SUMATRAPDF.EXE" )
MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi( "O PROGRAMA DA NOTA FISCAL ELETRâNICA" )+CRLF+ ;
OemToAnsi( "DETECTOU A FALTA DE UM COMPONENTE " )+CRLF+ ;
OemToAnsi( "NECESSµRIO PARA SE PODER VISUALIZAR " )+CRLF+ ;
OemToAnsi( "O ARQUIVO NO FORMATO *.PDF. " )+CRLF+ ;
OemToAnsi( "POR FAVOR, ENTRE EM CONTATO. " )+CRLF+ ;
OemToAnsi( "INFORME QUE FALTA O SUMATRAPDF.EXE " )+CRLF+ ;
OemToAnsi( "NA PASTA, C:\INST_NFE\SUMATRA\ " ), ;
OemToAnsi( "Faltando Componente de Visualiza‡Æo." ) )
RETURN NIL
ENDIF
nRecNo := ( cAlias )->( RecNo() ) //-> CCE.DBF
GoTo( nRecNo )
nNumNfeSUM := VAL( SUBSTR( ( cAlias )->CHAVE, 29, 6 ) )
// Modificado em: 09/12/2013 Nao funcionava em rede, ALLTRIM no lugar errado.
// Mostrava um espaco em Branco no numero da NFe, somente em Rede.
NFEVisualSUM := "C:\NFEPDF\"+"CCE"+ALLTRIM( STR( nNumNfeSUM ) )+".PDF"
MsgWait( "LOCALIZANDO O ARQUIVO DA CARTA DE CORRECAO", ;
"AGUARDE UM MOMENTO POR FAVOR... ", 1.5 )
IF .NOT. FILE( NFEVisualSUM ) // VISUALIZAR ARQUIVO NO SUMATRAPDF.EXE
MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ;
OemToAnsi( "ARQUIVO *.PDF DA CC-e DA NF-e: "+STR( nNumNfeSUM ) )+CRLF+ ;
OemToAnsi( "NAO FOI LOCALIZADO NO DIRETàRIO C:\NFEPDF " )+CRLF+ ;
OemToAnsi( "PROVAVELMENTE A CC-e NÇO FOI IMPRESSA, OU " )+CRLF+ ;
OemToAnsi( " MUITO ANTIGA. REIMPRIMA A CARTA DE " )+CRLF+ ;
OemToAnsi( "CORREۂO DESTA NOTA FISCAL, PARA GERAR O " )+CRLF+ ;
OemToAnsi( "ARQUIVO *.PDF DESTA CARTA DE CORREۂO. " )+CRLF+ ;
OemToAnsi( "ASSIM, VOCÒ PODE ENVIAR O *.PDF DA CC-e, " )+CRLF+ ;
OemToAnsi( "PARA O SEU CLIENTE, VIA EMAIL... " )+CRLF+ ;
OemToAnsi( "TECLE <ENTER> PARA CONTINUAR... " ), ;
OemToAnsi( "ARQUIVO *.PDF NÇO LOCALIZADO EM: C:\NFEPDF" ) )
RETURN NIL
ENDIF
// Dispara para o SUMATRAPDF como o Numero da NFE. 10/10/2013
// MYRUN...
WinExec( cDirExe+"sumatra\sumatrapdf.exe -reuse-instance -lang pt "+NFEVisualSUM) //-restrict -fullscreen
RETURN NIL
Código: Selecionar todos
FUNCTION ShellExecuteOpen( cFileName, cParameters, nShow )
nShow := iif( nShow == NIL, SW_SHOWNORMAL, nShow )
WAPI_ShellExecute( NIL, "open", cFileName, cParameters,, nShow )
RETURN NIL