Solução do meu caso, que uso monitor e linguagem xharbour :
**********************************************************************************
* Assinatura do Bloco X *
* Abril/2017 *
**********************************************************************************
Function assinaBlocoX(arquivo,tipo)
if tipo ="E"
ECF_Comando("AssinarBlocoXEstoque",{arquivo},5)
else
ECF_Comando("AssinarBlocoXReducaoZ",{arquivo},5)
endif
return .t.
**********************************************************************************
* Envio do Bloco X *
* Abril/2017 *
**********************************************************************************
Function enviaBlocoX(arquivo,tipo)
if tipo ="E"
ECF_Comando("EnviarBlocoXEstoque",{arquivo},5)
else
ECF_Comando("EnviarBlocoXReducaoZ",{arquivo},5)
endif
return .t.
**********************************************************************************
* Validação do Bloco X *
* Abril/2017 *
**********************************************************************************
Function validaBlocoX(arquivo,tipo)
if tipo ="E"
ECF_Comando("ValidarBlocoXEstoque",{arquivo},5)
else
ECF_Comando("ValidarBlocoXReducaoZ",{arquivo},5)
endif
return .t.