****************************************************************************
static procedure StruPedidos(oMeter,oText,plRede)
****************************************************************************
local cAlias := Alias(), aFields := {}, lRepassar:= .f.
barra("Aguarde, verificando a estrutura do " + cAlias +" ...")
if fieldpos("LOTE") = 0 .Or. FieldInfo("LOTE",3) != 20
aAdd(aFields,{"MOD",{"LOTE","C",20,0}})
End
if fieldpos("FILIAL") = 0
aAdd(aFields,{"MOD",{"FILIAL","C",03,0}})
End
if fieldpos("COMISSAO") = 0
aAdd(aFields,{"MOD",{"COMISSAO","N",06,2}})
End
if fieldpos("CONTEXP") <= 0
aAdd(aFields,{"MOD",{"CONTEXP","N",06,0},1})
end
if fieldpos("DATAEXP") > 0
aAdd(aFields,{"DROP",{"DATAEXP"}})
End
if fieldpos("Q_BAIXA") <= 0
aAdd(aFields,{"MOD",{"Q_BAIXA","N",9,3}})
end
if fieldpos("DEVOLVIDO") <= 0
aAdd(aFields,{"MOD",{"DEVOLVIDO","N",9,3}})
end
if FieldInfo("DEVOLVIDO",3) != 9 .or. FieldInfo("DEVOLVIDO",4) != 3
aAdd(aFields,{"MOD",{"DEVOLVIDO","N",9,3}})
end
if fieldinfo("DESCO",3) = 5
aAdd(aFields,{"MOD",{"DESCO","N",6,2}})
endif
if fieldpos("PARC") <= 0
aAdd(aFields,{"MOD",{"PARC","C",4,0}})
end
if fieldpos("COMI_PARC") <= 0
aAdd(aFields,{"MOD",{"COMI_PARC","D",8,0}})
end
if fieldpos("PARCEIRO") > 0
aAdd(aFields,{"DROP",{"PARCEIRO"}})
End
if fieldpos("PARCECOMI") > 0
aAdd(aFields,{"DROP",{"PARCECOMI"}})
End
if fieldpos("BXAESTOQ") <= 0
aAdd(aFields,{"MOD",{"BXAESTOQ","C",1,0}})
end
if fieldpos("MOTPERCON") <= 0
aAdd(aFields,{"MOD",{"MOTPERCON","C",3,0}})
end
if fieldpos("NRSERIEFAB") <= 0
aAdd(aFields,{"MOD",{"NRSERIEFAB","C",20,0}})
End
if fieldpos("ALIQUOTA") <= 0
aAdd(aFields,{"MOD",{"ALIQUOTA","C",4,0}})
end
if fieldpos("UN") <= 0
aAdd(aFields,{"MOD",{"UN","C",2,0}})
end
if fieldpos("NR_LOCAL") <= 0
aAdd(aFields,{"MOD",{"NR_LOCAL","N",6,0}})
end
if fieldpos("ATUSERV") <= 0
aAdd(aFields,{"MOD",{"ATUSERV","C",1,0}})
end
if fieldpos("DECVRPRO") <= 0
aAdd(aFields,{"MOD",{"DECVRPRO","N",1,0}})
end
if fieldpos("SERVICOPRO") <= 0
aAdd(aFields,{"MOD",{"SERVICOPRO","C",1,0}})
end
if fieldpos("PRLIQUIDO") <= 0
aAdd(aFields,{"MOD",{"PRLIQUIDO","N",12,2}})
end
if fieldpos("ALIQ_IND") <= 0
aAdd(aFields,{"MOD",{"ALIQ_IND","C",2,0}})
end
if fieldpos("CCF") > 0
aAdd(aFields,{"DROP",{"CCF"}})
End
if fieldpos("COO") <= 0
aAdd(aFields,{"MOD",{"COO","N",6,0}})
end
if fieldpos("ACRESCIMO") <= 0
aAdd(aFields,{"MOD",{"ACRESCIMO","N",6,2}})
end
if fieldpos("SEQUENCIA") > 0 .Or. fieldpos("SEQCUPOM") > 0
if fieldpos("SEQCUPOM") > 0
aAdd(aFields,{"DROP",{"SEQCUPOM"}})
aAdd(aFields,{"MOD",{"SEQCUPFIS","N",3,0},{||PEDIDOS->SEQCUPOM}})
elseif fieldpos("SEQUENCIA") > 0
aAdd(aFields,{"DROP",{"SEQUENCIA"}})
aAdd(aFields,{"MOD",{"SEQCUPFIS","N",3,0},{||PEDIDOS->SEQUENCIA}})
end
End
if fieldpos("SEQCUPFIS") <= 0
aAdd(aFields,{"MOD",{"SEQCUPFIS","N",3,0}})
End
if fieldpos("PRCUSTO") <= 0
aAdd(aFields,{"MOD",{"PRCUSTO","N",12,2}})
end
if fieldpos("APLIPROMO") <= 0
aAdd(aFields,{"MOD",{"APLIPROMO","C",01,0}})
end
if fieldpos("SERVICO") <= 0
aAdd(aFields,{"MOD",{"SERVICO","C",06,0}})
end
if fieldpos("TAXA") <= 0
aAdd(aFields,{"MOD",{"TAXA","N",06,3}})
end
if fieldpos("SINAL") <= 0
aAdd(aFields,{"MOD",{"SINAL","N",12,2}})
end
if fieldpos("APLIATAC") <= 0
aAdd(aFields,{"MOD",{"APLIATAC","C",01,0}})
end
if fieldpos("ENTSTATUS") <= 0
aAdd(aFields,{"MOD",{"ENTSTATUS","C",10,0},{||"IGNORADO"}})
end
if fieldpos("CODENTREGA") <= 0
aAdd(aFields,{"MOD",{"CODENTREGA","C",06,0},{||"000000"}})
end
if fieldpos("QTDENTREGA") <= 0
aAdd(aFields,{"MOD",{"QTDENTREGA","N",09,3}})
end
if fieldpos("ENTREGUES") <= 0
aAdd(aFields,{"MOD",{"ENTREGUES","N",09,3}})
end
if FieldInfo("CLIENTE",3) == 4
aAdd(aFields,{"MOD",{"CLIENTE","C",05,0},{||SZero(CLIENTE,5) }})
end
if fieldpos("RESERVA") <= 0
aAdd(aFields,{"MOD",{"RESERVA","N",10,3}})
end
if fieldpos("DESCOFIM") <= 0
aAdd(aFields,{"MOD",{"DESCOFIM","C",01,0}})
end
if fieldpos(CAMPOMD5) <= 0
aAdd(aFields,{"MOD",{CAMPOMD5,"C",32,0},"{||GeraMd5Reg()}"})
end
if fieldpos("CONTMOVECF") <= 0
aAdd(aFields,{"MOD",{"CONTMOVECF","C",10,0}}) //-- Contador do movimento ecf
endif
if fieldpos("NRSERIE") = 0
aAdd(aFields,{"MOD",{"NRSERIE","C",20,0}})
endif
if fieldpos("IAT") = 0
aAdd(aFields,{"MOD",{"IAT","C",1,0}})
endif
if fieldpos("MFADIC") = 0
aAdd(aFields,{"MOD",{"MFADIC","C",1,0}})
endif
if fieldpos("ECFMODELO") = 0
aAdd(aFields,{"MOD",{"ECFMODELO","C",20,0}})
endif
if fieldpos("ECFNRUSU") = 0
aAdd(aFields,{"MOD",{"ECFNRUSU","N",2,0}})
endif
if Len(aFields) > 0
ModStruct( aFields, oMeter, oText )
end
barra()
return nil