Passo a passo: | Exemplo: User Function SelecFat Local aArray:={} Local aTit :={} Private lMsErroAuto := .F. aTit := {{ " ", "TIT01 ", " " , "NF ", .f.,"01","02"}, { " ", "TIT02 ", " " , "NF ", .f.}} aArray := { "FAT", "NF", "FAT001", "001", CtoD("28/05/2012"), CtoD("28/05/2012"), "0001 ", "01", "", "", "001", 01, aTit , , } MsExecAuto( { |x,y| FINA290(x,y)},3,aArray,) If lMsErroAuto MostraErro() Else Alert("Fatura gerada com sucesso") Endif
|
Observação | Parâmetros - nPosArotina: Define as opções a serem executadas pela rotina automática - 3-Selecionar, 4-Cancelar. - aFAtPag: Array com as informações para a geração da fatura. Abaixo do detalhamento das posições. [01] | Prefixo |
---|
[02] | Tipo | [03] | Numero da Fatura (se o numero estiver em branco obtêm pelo FINA290) | [04] | Natureza | [05] | Data de | [06] | Data até | [07] | Fornecedor | [08] | Loja | [09] | Fornecedor para geração | [10] | Loja do fornecedor para geração | [11] | Condição de pagto | [12] | Moeda | [13] | array com os títulos da fatura | [13,1] | Prefixo | [13,2] | Número | [13,3] | Parcela | [13,4] | Tipo | [13,5] | Título localizado na geração de fatura (lógico). Iniciar com falso | [13,6] | Cod Fornecedor (E2_FORNECE) do título, deve ser igual ao informado na posição 7. | [13,7] | Loja do Fornecedor do título | [14] | Valor de decréscimo | [15] | Valor de acréscimo |
|